home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / AmigaTalk_X / system / Library.st < prev    next >
Encoding:
Text File  |  2002-03-13  |  899 b   |  51 lines
  1. "--------------------------------------------------"
  2. " Library Class is temporarily derived from Object."
  3. "--------------------------------------------------"
  4.  
  5. Class Library :Object ! private libName !
  6. [
  7.    getLibraryObject
  8.      ^ private
  9. |
  10.    openLibrary: libraryName version: ver
  11.      private <- <primitive 190 1 libraryName ver>.
  12.  
  13.      libName <- libraryName.
  14.  
  15.      ^ self
  16. |
  17.    close
  18.      <primitive 190 0 private>.
  19.  
  20.      ^ nil
  21. |
  22.    getIDString
  23.      ^ libName
  24. |
  25.    getVersion
  26.      ^ <primitive 190 2 4 private>
  27. |
  28.    getNegSize
  29.      ^ <primitive 190 2 1 private>
  30. |
  31.    getPosSize
  32.      ^ <primitive 190 2 2 private>
  33. |
  34.    getFlags
  35.      ^ <primitive 190 2 3 private>
  36. |
  37.    getRevision
  38.      ^ <primitive 190 2 5 private>
  39. |
  40.    getCheckSum
  41.      ^ <primitive 190 2 6 private>
  42. |
  43.    getOpenCount
  44.      ^ <primitive 190 2 7 private>
  45. |
  46.    new: libname
  47.      self openLibrary: libname version: 0.
  48.  
  49.      ^ self
  50. ] 
  51.